'עVbsʵֶʱػ
On Error Resume Next 'ִֹ
Set p=Wscript.CreateObject("Wscript.shell")
dim a,b
a=1
b=inputbox("ʱ:ʽΪ:XX:XX:XX :17:48:30 Ϊ174830","ʱػ")
while a=1
if CStr(b)=CStr(time()) then
p.run "cmd /c shutdown /s /t 0",0
else
wscript.sleep 500
end if
wend